﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports SIAVU.Persistencia

Namespace Dominio
    Public Class Batch

#Region "Atributos privados"

        Private _MesEjecucion As Integer
        Private _FechaEjecucion As Date
        Private _BatchID As Long

#End Region

#Region "Propiedades"

        Public Overridable Property MesEjecucion() As Integer
            Get
                Return _MesEjecucion
            End Get
            Set(ByVal value As Integer)
                _MesEjecucion = value
            End Set
        End Property

        Public Overridable Property FechaEjecucion() As Date
            Get
                Return _FechaEjecucion
            End Get
            Set(ByVal value As Date)
                _FechaEjecucion = value
            End Set
        End Property

        Public Overridable Property BatchID() As Long
            Get
                Return _BatchID
            End Get
            Set(ByVal value As Long)
                _BatchID = value
            End Set
        End Property

#End Region

#Region "Métodos"

        Public Shared Function getByMesEjecucion(ByVal MesEjecucionAux As Integer) As Batch
            Try
                Dim oBatchPersistencia As New BatchPersistencia
                Return oBatchPersistencia.getByMesEjecucion(MesEjecucionAux)

                'Dim oUsuarioPersistencia As New UsuarioPersistencia
                'oUsuarioPersistencia.getById(oUsuarioAux)

                'If oBatchAux IsNot Nothing Then
                '    Me.UsuarioID = oUsuarioAux.UsuarioID
                '    Me.NombreCompleto = oUsuarioAux.NombreCompleto
                '    Me.Legajo = oUsuarioAux.Legajo
                '    Me.Clave = oUsuarioAux.Clave
                '    Me.Antiguedad = oUsuarioAux.Antiguedad
                '    Me.TipoUsuario = oUsuarioAux.TipoUsuario
                '    Me.TipoPosta = oUsuarioAux.TipoPosta
                '    Me.Telefonos = oUsuarioAux.Telefonos
                '    Me.Roles = oUsuarioAux.Roles
                '    Me.AvionesPermitidos = oUsuarioAux.AvionesPermitidos
                '    Me.PlanesVuelos = oUsuarioAux.PlanesVuelos
                '    Me.PreProgramaciones = oUsuarioAux.PreProgramaciones
                '    Me.VuelosRealizados = oUsuarioAux.VuelosRealizados
                '    Me.ProgramacionesAsignadas = oUsuarioAux.ProgramacionesAsignadas
                'End If

                'Return Me

            Catch ex As Exception
                Throw
            End Try
        End Function

        Public Overridable Function guardar() As Boolean
            Dim oBatchPersistencia As New BatchPersistencia

            Try
                oBatchPersistencia.guardar(Me)
                Return True

            Catch ex As Exception
                Return False
            End Try
        End Function

#End Region

    End Class
End Namespace

